home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / lldemo / lldemo.shr / ROSETTA.EXE / ROSETTA.DXR / 00588_key handling scripts.ls < prev    next >
Encoding:
Text File  |  1996-06-24  |  396 b   |  21 lines
  1. on handleKey
  2.   global gInPlay, gType
  3.   set saveCommand to the commandDown
  4.   if soundBusy(1) then
  5.     sound stop 1
  6.   end if
  7.   if saveCommand then
  8.     if the key = "q" then
  9.       goQuit()
  10.     else
  11.       if (the key = "m") and (gType = #MAC) then
  12.         toggleMenu()
  13.       else
  14.         if (the key = "j") and gInPlay then
  15.           showControl()
  16.         end if
  17.       end if
  18.     end if
  19.   end if
  20. end
  21.